home *** CD-ROM | disk | FTP | other *** search
/ Carousel Volume 2 #1 / carousel.iso / comdore / 64utils / 20 / F KEY OVERLAY (.txt) < prev    next >
Commodore BASIC  |  1988-11-19  |  2KB  |  70 lines
  1. 100 E$="TOO LONG !          ":OPEN1,0
  2. 110 BL$="                                       "
  3. 120 A1$="[192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][174]"
  4. 125 A0$="                          [221]"
  5. 130 A2$="    [176][192][192][192][192][192][192][192][192][192][192][174]          [221]"
  6. 140 A9$="    [221]          [221]          [221]"
  7. 150 A3$="    [173][192][192][192][192][192][192][192][192][192][192][189]          [221]"
  8. 160 A4$="[192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][189]"
  9. 170 A5$="                           "
  10. 180 A6$="          ":AA$="         "
  11. 190 A7$="[221]  "
  12. 200 A8$="     [221]":B$="[221]"
  13. 220 DIMTA$(8),TB$(8)
  14. 230 FORI=1TO8:READTA$(I):NEXT
  15. 240 DATAF1 -,F2 -,F3 -,F4 -,F5 -,F6 -,F7 -,F8 -
  16. 300 PRINT"[147]","FUNCTION KEY OVERLAY"
  17. 330 PRINTTAB(8)"ENTER 20- CHARACTER TITLE"
  18. 335 PRINTTAB(11);
  19. 336 PRINT"[204][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][186][145][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157]";:INPUT#1,T$
  20. 340 IFLEN(T$)>20THENPRINT:PRINTTAB(15)E$:GOSUB900:GOTO300
  21. 360 T1$=MID$(A5$,1,(27-LEN(T$))/2)+T$+MID$(A5$,1,(27-LEN(T$))/2)
  22. 365 IFLEN(T1$)=27THENT1$=MID$(T1$,1,26)
  23. 370 PRINT:PRINT:PRINTTAB(3)"ENTER 10 - CHARACTER KEY FUNCTION"
  24. 375 PRINT"   (ENTER 0 IF KEY HAS NO FUNCTION)"
  25. 380 FORI=1TO8
  26. 390 PRINT:PRINT:PRINT"  FOR "TA$(I)" KEY [204][175][175][175][175][175][175][175][175][186][145][157][157][157][157][157][157][157][157][157][157]";:INPUT#1,X$:PRINT
  27. 392 IFX$="0"THEN X$="NOT USED"
  28. 395 IFLEN(X$)>10THENPRINTTAB(15)"[145]"E$:GOSUB900:PRINT"[145]"BL$"[145][145]":GOTO390
  29. 400 X$=MID$(X$,1,10)
  30. 410 TB$(I)=X$+MID$(A6$,1,10-LEN(X$))
  31. 420 X$="" :PRINT
  32. 430 NEXT:GOSUB1200
  33. 440 PRINT
  34. 450 PRINT,"CHECK PRINTER READY"
  35. 451 OPEN4,4:PRINT"   PRESS SPACE BAR TO ADVANCE PAPER"
  36. 452 PRINT"       ANY OTHER KEY TO CONTINUE"
  37. 453 GETA$:IFA$=""THENGOTO453
  38. 454 IFA$=" "THEN950
  39. 540 PRINT#4,A1$:PRINT#4,A0$
  40. 550 PRINT#4,T1$+B$
  41. 570 PRINT#4,A0$
  42. 580 PRINT#4,A2$
  43. 600 FORI=1TO8
  44. 610 PRINT#4,TA$(I)+"[221] "+AA$+"[221]"+TB$(I)+"[221]"
  45. 620 IFI<>8THENPRINT#4,A9$
  46. 630 IFI=2ORI=6THENPRINT#4,A9$
  47. 640 NEXT
  48. 650 PRINT#4,A3$:PRINT#4,A0$
  49. 655 FORI=1TO4:PRINT#4,M$(I)+B$:NEXT
  50. 660 PRINT#4,A0$:PRINT#4,A4$:PRINT#4,
  51. 700 PRINT"       PRINT ANOTHER COPY (Y OR N)"
  52. 710 GETQ$:IFQ$=""THEN710
  53. 720 IFQ$="Y"THENGOSUB1000:GOTO540
  54. 730 IFQ$<>"N"THEN700
  55. 800 PRINT"[147]"TAB(14)"BYE BYE BYE":END
  56. 900 FORT=0TO1000:NEXT:RETURN
  57. 950 PRINT#4,"":FORT=0TO500:NEXT:A$="":GOTO453
  58. 1000 TX=TX+1:IFTX<2THENRETURN
  59. 1010 FORX=0TO3:PRINT#4,"":NEXT:TX=0:RETURN
  60. 1200 PRINT:PRINT:PRINT"  ENTER UP TO FOUR 20-CHARACTER NOTES"
  61. 1202 PRINT"     (ENTER 0 IF NO NOTE IS DESIRED)"
  62. 1205 FORI=1TO4
  63. 1206 PRINT:PRINTTAB(4)" NOTE "I;
  64. 1210 PRINT"[204][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][186][145][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157]";:INPUT#1,M$(I):PRINT
  65. 1220 IFLEN(M$(I))>20THENPRINTTAB(12)"[145]"E$:GOSUB900:PRINT"[145]"BL$"[145][145]":GOTO1206
  66. 1230 IF M$(I)="0"THEN M$(I)=""
  67. 1235 M$(I)=MID$(A5$,1,(27-LEN(M$(I)))/2)+M$(I)+MID$(A5$,1,(27-LEN(M$(I)))/2)
  68. 1236 IFLEN(M$(I))=27THENM$(I)=MID$(M$(I),1,26)
  69. 1250 NEXT:RETURN
  70.